home *** CD-ROM | disk | FTP | other *** search
/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / mac / midi / cmmdtlkt.hqx / CMU Midi Toolkit 23Mar88 / Moxc Stuff / echoes.c < prev    next >
C/C++ Source or Header  |  1988-03-23  |  443b  |  30 lines
  1. #include "cmtprog.h"
  2.  
  3. #define delay 30
  4.  
  5. /* private functions: */
  6. int echo (int, int, int);
  7.  
  8. private echo(chan, pitch, vel)
  9. {
  10.     vel = vel - 5;
  11.     if (vel > 0) {
  12.         midi_note(chan, pitch, 0);
  13.         midi_note(chan, pitch, vel);
  14.         cause(delay, echo, chan, pitch, vel);
  15.     } else {
  16.         midi_note(chan, pitch, 0);
  17.     }
  18. }
  19.  
  20. keydown(chan, pitch, vel)
  21. {
  22.     midi_note(chan, pitch, 120);
  23.     cause(delay, echo, chan, pitch, 120);
  24. }
  25.  
  26. mainscore()
  27. {
  28.     cause(1000, mainscore);
  29. }
  30.